home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / comm / scr104a.zip / RAMK.TEM < prev    next >
Text File  |  1992-01-21  |  3KB  |  156 lines
  1. When continue: ^M
  2. When More( n
  3. When "press any" ^M
  4. When "Press any" ^M
  5. If $ne("@gateway","")
  6.    When "@gateway" "@response"
  7. EndIf
  8. If $ne("%port","@vport")
  9.    Set Port=@vport
  10. EndIf
  11. While NOT Connected
  12.    Dial/@waittime "@numberA" _
  13.                   "@numberB" _
  14.                   "@numberC" _
  15.                   "@numberD"
  16. EndWhile
  17. Wait "FULL NAME"
  18. If $ne("@gateway","")
  19.    EndWhen "@gateway"
  20. EndIf
  21. SendWait "@username^M" Password:
  22. SendWait "@password^M" "The Board"
  23. When "waiting mail" n
  24. When "new files" n
  25. SendWait ^M Select:
  26. EndWhen "new files"
  27. EndWhen "waiting mail"
  28.  
  29. %ufile := "@packet.FUL"
  30. %uhandle := fopen %ufile
  31. If %NoError
  32.    %uhandle := fsize %usize
  33.    If %usize = 0
  34.       %uhandle := fclose
  35.    EndIf
  36. Else
  37.    %usize := 0
  38. EndIf
  39.  
  40. %dfile := "@packet.FDL"
  41. %dhandle := fopen %dfile
  42. If %NoError
  43.    %dhandle := fsize %dsize
  44.    If %dsize = 0
  45.       %dhandle := fclose
  46.    EndIf
  47. Else
  48.    %dsize := 0
  49. EndIf
  50.  
  51. If (%dsize # 0) | (%usize # 0)
  52.  
  53.    SendWait f "Select:"
  54.  
  55.    If %usize # 0
  56.       SendWait u "FileDoor"
  57.       SendWait z "Give filename"
  58.       %uhandle := fread %fname
  59.       While NoError
  60.          $rchpos %i %fname "\"
  61.          If %i # %maxint
  62.             Inc %i
  63.             $delete %fname 0 %i
  64.          EndIf
  65.          SendWait "~%fname^M" "Give filename"
  66.          %uhandle := fread %fname
  67.       EndWhile
  68.       SendWait ^M "after transfer"
  69.       SendWait ^M **B01
  70.       %uhandle := fclose
  71.       Upload zmodem .%currdir\%ufile
  72.       Wait "Perform another"
  73.       SendWait n Select:
  74.       If NoError
  75.          If $eq("@confirm","Y")
  76.             Ask "Delete %ufile? (Y/N) " %reply 1 1 Y
  77.             $caps %reply
  78.          Else
  79.             %reply := "Y"
  80.          EndIf
  81.          If $equal %reply Y
  82.             Delete %ufile
  83.          EndIf
  84.       EndIf
  85.    Else
  86.       Delete %ufile
  87.    EndIf
  88.  
  89.    If %dsize # 0
  90.       SendWait d FileDoor
  91.       SendWait z descriptions
  92.       SendWait n Filemask
  93.       %dhandle := fread %fname
  94.       While NoError
  95.          $rchpos %i %fname "\"
  96.          If %i # %maxint
  97.             Inc %i
  98.             $delete %fname 0 %i
  99.          EndIf
  100.          SendWait "~%fname^M" "Select file:"
  101.          SendWait y Filemask
  102.          %dhandle := fread %fname
  103.       EndWhile
  104.       %dhandle := fclose
  105.       SendWait ^M "after transfer"
  106.       SendWait ^M **B00
  107.       Download zmodem !
  108.       Wait "Perform another"
  109.       SendWait n Select:
  110.       If NoError
  111.          If $eq("@confirm","Y")
  112.             Ask "Delete %dfile? (Y/N) " %reply 1 1 Y
  113.             $caps %reply
  114.          Else
  115.             %reply := "Y"
  116.          EndIf
  117.          If $equal %reply Y
  118.             Delete %dfile
  119.          EndIf
  120.       EndIf
  121.    Else
  122.       Delete %dfile
  123.    EndIf
  124. EndIf
  125.  
  126. %repname := "%updir\@packet.REP"
  127. SendWait m Select:
  128. SendWait @ramkey "@bbs"
  129. SendWait a "to Upload?"
  130. If Exists %repname
  131.    SendWait y **B01
  132.    Upload zmodem %repname
  133.    Wait "after transfer"
  134.    If NoError
  135.      Delete %repname
  136.    EndIf
  137. Else
  138.    SendWait n "after transfer"
  139. EndIf
  140. SendWait y **B00 "Do You" "to abort"
  141. If Had 2
  142.    SendWait y **B00
  143. EndIf
  144. If Had 1
  145.    Download zmodem !
  146.    Wait "to abort" "NO CARRIER"
  147.    If Had 1
  148.       SendWait ! "NO CARRIER"
  149.    EndIf
  150. Else
  151.    SendWait ! "NO CARRIER"
  152. EndIf
  153. If $ne("%port","%dport")
  154.    Set Port=%dport
  155. EndIf
  156.